home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 3.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 35 35 3a 30 34 20 31 | 39 39 38 0a 3b 3b 3b 20 |:55:04 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 74 6c 2f 74 |s-20.3/l|isp/tl/t|
|000000a0| 6c 2d 73 74 72 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |l-str.el|.;;; ema|
|000000b0| 63 73 20 76 65 72 73 69 | 6f 6e 20 32 30 2e 34 20 |cs versi|on 20.4 |
|000000c0| 22 45 6d 65 72 61 6c 64 | 22 20 58 45 6d 61 63 73 |"Emerald|" XEmacs|
|000000d0| 20 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 | Lucid.|.;;; byt|
|000000e0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000f0| 32 35 20 58 45 6d 61 63 | 73 3b 20 32 32 2d 4d 61 |25 XEmac|s; 22-Ma|
|00000100| 72 2d 39 36 2e 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 |r-96..;;|; optimi|
|00000110| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|00000120| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|00000130| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|00000140| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000150| 6d 61 63 73 20 31 39 2e | 0a 0a 28 69 66 20 28 61 |macs 19.|..(if (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000170| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000180| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000190| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|000001a0| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|000001b0| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 | (st|ring-les|
|000001c0| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|000001d0| 20 22 32 30 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "20")))|. (er|
|000001e0| 72 6f 72 20 22 60 74 6c | 2d 73 74 72 2e 65 6c 27 |ror "`tl|-str.el'|
|000001f0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|00000200| 72 20 45 6d 61 63 73 20 | 32 30 22 29 29 0a 0a 28 |r Emacs |20"))..(|
|00000210| 6f 72 20 28 62 6f 75 6e | 64 70 20 27 63 75 72 72 |or (boun|dp 'curr|
|00000220| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 29 20 28 |ent-load|-list) (|
|00000230| 73 65 74 71 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |setq cur|rent-loa|
|00000240| 64 2d 6c 69 73 74 20 6e | 69 6c 29 29 0a 0a 0a 28 |d-list n|il))...(|
|00000250| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 88 c0 |byte-cod|e "..!..|
|00000260| c2 21 87 22 20 5b 72 65 | 71 75 69 72 65 20 65 6d |.!." [re|quire em|
|00000270| 75 20 74 6c 2d 6c 69 73 | 74 5d 20 32 29 0a 28 64 |u tl-lis|t] 2).(d|
|00000280| 65 66 61 6c 69 61 73 20 | 27 65 78 70 61 6e 64 2d |efalias |'expand-|
|00000290| 63 68 61 72 2d 72 61 6e | 67 65 73 20 23 5b 28 73 |char-ran|ges #[(s|
|000002a0| 74 72 29 20 22 c0 09 47 | c2 89 89 c3 1c 1d 1e 06 |tr) "..G|........|
|000002b0| 1e 07 1e 08 89 1e 09 0e | 08 57 ab c7 09 0e 09 9c |........|.W......|
|000002c0| 16 07 0e 06 ab aa 0e 07 | ca 61 ab a4 0e 06 54 16 |........|.a....T.|
|000002d0| 06 0e 09 54 16 09 09 0e | 09 9c 15 0e 06 0d 58 ab |...T....|......X.|
|000002e0| 96 0c cb 0e 06 21 50 14 | 0e 06 54 89 16 06 aa 6d |.....!P.|..T....m|
|000002f0| 0c cb 0e 07 21 50 14 0e | 07 16 06 0e 09 54 89 16 |....!P..|.....T..|
|00000300| 09 aa 34 0c 2e 06 87 22 | 20 5b 30 20 73 74 72 20 |..4...."| [0 str |
|00000310| 6e 69 6c 20 22 22 20 64 | 65 73 74 20 6e 63 68 72 |nil "" d|est nchr|
|00000320| 20 70 63 68 72 20 63 68 | 72 20 6c 65 6e 20 69 20 | pchr ch|r len i |
|00000330| 3f 5c 2d 20 63 68 61 72 | 2d 74 6f 2d 73 74 72 69 |?\- char|-to-stri|
|00000340| 6e 67 5d 20 37 5d 29 0a | 23 40 36 37 20 45 6c 69 |ng] 7]).|#@67 Eli|
|00000350| 6d 69 6e 61 74 65 20 74 | 6f 70 20 73 65 71 75 65 |minate t|op seque|
|00000360| 6e 63 65 20 6f 66 20 73 | 70 61 63 65 20 6f 72 20 |nce of s|pace or |
|00000370| 74 61 62 20 61 6e 64 20 | 72 65 74 75 72 6e 20 69 |tab and |return i|
|00000380| 74 2e 20 5b 74 6c 2d 73 | 74 72 2e 65 6c 5d 1f 0a |t. [tl-s|tr.el]..|
|00000390| 28 64 65 66 61 6c 69 61 | 73 20 27 65 6c 69 6d 69 |(defalia|s 'elimi|
|000003a0| 6e 61 74 65 2d 74 6f 70 | 2d 73 70 61 63 65 73 20 |nate-top|-spaces |
|000003b0| 23 5b 28 73 74 72 29 20 | 22 c0 c1 5c 6e 5c 22 ab |#[(str) |"..\n\".|
|000003c0| 86 5c 6e c3 95 c4 4f 87 | 5c 6e 87 22 20 5b 73 74 |.\n...O.|\n." [st|
|000003d0| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5e 5b 20 09 |ring-mat|ch "^[ .|
|000003e0| 5d 2b 22 20 73 74 72 20 | 30 20 6e 69 6c 5d 20 33 |]+" str |0 nil] 3|
|000003f0| 20 28 23 24 20 2e 20 38 | 34 35 29 5d 29 0a 23 40 | (#$ . 8|45)]).#@|
|00000400| 36 38 20 45 6c 69 6d 69 | 6e 61 74 65 20 6c 61 73 |68 Elimi|nate las|
|00000410| 74 20 73 65 71 75 65 6e | 63 65 20 6f 66 20 73 70 |t sequen|ce of sp|
|00000420| 61 63 65 20 6f 72 20 74 | 61 62 20 61 6e 64 20 72 |ace or t|ab and r|
|00000430| 65 74 75 72 6e 20 69 74 | 2e 20 5b 74 6c 2d 73 74 |eturn it|. [tl-st|
|00000440| 72 2e 65 6c 5d 1f 0a 28 | 64 65 66 61 6c 69 61 73 |r.el]..(|defalias|
|00000450| 20 27 65 6c 69 6d 69 6e | 61 74 65 2d 6c 61 73 74 | 'elimin|ate-last|
|00000460| 2d 73 70 61 63 65 73 20 | 23 5b 28 73 74 72 29 20 |-spaces |#[(str) |
|00000470| 22 c0 c1 5c 6e 5c 22 ab | 86 5c 6e c3 89 94 4f 87 |"..\n\".|.\n...O.|
|00000480| 5c 6e 87 22 20 5b 73 74 | 72 69 6e 67 2d 6d 61 74 |\n." [st|ring-mat|
|00000490| 63 68 20 22 5b 20 09 5d | 2b 24 22 20 73 74 72 20 |ch "[ .]|+$" str |
|000004a0| 30 5d 20 33 20 28 23 24 | 20 2e 20 31 30 32 37 29 |0] 3 (#$| . 1027)|
|000004b0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 72 65 |]).(defa|lias 're|
|000004c0| 70 6c 61 63 65 2d 73 70 | 61 63 65 2d 77 69 74 68 |place-sp|ace-with|
|000004d0| 2d 75 6e 64 65 72 6c 69 | 6e 65 20 23 5b 28 73 74 |-underli|ne #[(st|
|000004e0| 72 29 20 22 c0 c1 5c 6e | c3 23 87 22 20 5b 6d 61 |r) "..\n|.#." [ma|
|000004f0| 70 63 6f 6e 63 61 74 20 | 23 5b 28 61 72 67 29 20 |pconcat |#[(arg) |
|00000500| 22 c0 09 c2 61 ab 83 c3 | aa 81 09 21 87 22 20 5b |"...a...|...!." [|
|00000510| 63 68 61 72 2d 74 6f 2d | 73 74 72 69 6e 67 20 61 |char-to-|string a|
|00000520| 72 67 20 3f 5c 20 20 3f | 5c 5f 5d 20 33 5d 20 73 |rg ?\ ?|\_] 3] s|
|00000530| 74 72 20 22 22 5d 20 34 | 5d 29 0a 28 64 65 66 61 |tr ""] 4|]).(defa|
|00000540| 6c 69 61 73 20 27 76 65 | 72 73 69 6f 6e 2d 74 6f |lias 've|rsion-to|
|00000550| 2d 6c 69 73 74 20 23 5b | 28 73 74 72 29 20 22 c0 |-list #[|(str) ".|
|00000560| c1 5c 6e 5c 22 ad ad c3 | 5c 6e c4 94 c4 95 4f 21 |.\n\"...|\n....O!|
|00000570| 43 1d 5c 6e c4 95 c6 4f | 12 c0 c7 5c 6e 5c 22 ab |C.\n...O|...\n\".|
|00000580| 94 c3 5c 6e c4 94 54 c4 | 95 4f 21 0d 42 15 5c 6e |..\n..T.|.O!.B.\n|
|00000590| c4 95 c6 4f 12 aa 66 0d | 9f 29 87 22 20 5b 73 74 |...O..f.|.)." [st|
|000005a0| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5b 30 2d 39 |ring-mat|ch "[0-9|
|000005b0| 5d 2b 22 20 73 74 72 20 | 73 74 72 69 6e 67 2d 74 |]+" str |string-t|
|000005c0| 6f 2d 6e 75 6d 62 65 72 | 20 30 20 64 65 73 74 20 |o-number| 0 dest |
|000005d0| 6e 69 6c 20 22 5e 5c 5c | 2e 5b 30 2d 39 5d 2b 22 |nil "^\\|.[0-9]+"|
|000005e0| 5d 20 34 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 4]).(d|efalias |
|000005f0| 27 76 65 72 73 69 6f 6e | 3c 20 23 5b 28 76 31 20 |'version|< #[(v1 |
|00000600| 76 32 29 20 22 08 3c ac | 84 c1 08 21 10 5c 6e 3c |v2) ".<.|...!.\n<|
|00000610| ac 84 c1 5c 6e 21 12 c3 | c4 8d 87 22 20 5b 76 31 |...\n!..|..." [v1|
|00000620| 20 76 65 72 73 69 6f 6e | 2d 74 6f 2d 6c 69 73 74 | version|-to-list|
|00000630| 20 76 32 20 74 61 67 20 | 28 62 79 74 65 2d 63 6f | v2 tag |(byte-co|
|00000640| 64 65 20 22 08 ab a5 09 | ab a2 08 40 09 40 57 ab |de "....|...@.@W.|
|00000650| 87 c2 c3 09 5c 22 88 aa | 8c 08 40 09 40 56 ab 85 |....\"..|..@.@V..|
|00000660| c2 c3 c4 5c 22 88 08 41 | 10 09 41 11 aa 58 09 87 |...\"..A|..A..X..|
|00000670| 22 20 5b 76 31 20 76 32 | 20 74 68 72 6f 77 20 74 |" [v1 v2| throw t|
|00000680| 61 67 20 6e 69 6c 5d 20 | 33 29 5d 20 32 5d 29 0a |ag nil] |3)] 2]).|
|00000690| 28 64 65 66 61 6c 69 61 | 73 20 27 76 65 72 73 69 |(defalia|s 'versi|
|000006a0| 6f 6e 3c 3d 20 23 5b 28 | 76 31 20 76 32 29 20 22 |on<= #[(|v1 v2) "|
|000006b0| 08 3c ac 84 c1 08 21 10 | 5c 6e 3c ac 84 c1 5c 6e |.<....!.|\n<...\n|
|000006c0| 21 12 c3 c4 8d 87 22 20 | 5b 76 31 20 76 65 72 73 |!....." |[v1 vers|
|000006d0| 69 6f 6e 2d 74 6f 2d 6c | 69 73 74 20 76 32 20 74 |ion-to-l|ist v2 t|
|000006e0| 61 67 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |ag (byte|-code ".|
|000006f0| ab a5 09 ab a2 08 40 09 | 40 57 ab 87 c2 c3 09 5c |......@.|@W.....\|
|00000700| 22 88 aa 8c 08 40 09 40 | 56 ab 85 c2 c3 c4 5c 22 |"....@.@|V.....\"|
|00000710| 88 08 41 10 09 41 11 aa | 58 09 ae 86 08 3f ad 82 |..A..A..|X....?..|
|00000720| 09 3f 87 22 20 5b 76 31 | 20 76 32 20 74 68 72 6f |.?." [v1| v2 thro|
|00000730| 77 20 74 61 67 20 6e 69 | 6c 5d 20 33 29 5d 20 32 |w tag ni|l] 3)] 2|
|00000740| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 76 65 |]).(defa|lias 've|
|00000750| 72 73 69 6f 6e 3e 20 23 | 5b 28 76 31 20 76 32 29 |rsion> #|[(v1 v2)|
|00000760| 20 22 08 3c ac 84 c1 08 | 21 10 5c 6e 3c ac 84 c1 | ".<....|!.\n<...|
|00000770| 5c 6e 21 12 c3 c4 8d 87 | 22 20 5b 76 31 20 76 65 |\n!.....|" [v1 ve|
|00000780| 72 73 69 6f 6e 2d 74 6f | 2d 6c 69 73 74 20 76 32 |rsion-to|-list v2|
|00000790| 20 74 61 67 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | tag (by|te-code |
|000007a0| 22 08 ab a5 09 ab a2 08 | 40 09 40 56 ab 87 c2 c3 |".......|@.@V....|
|000007b0| 08 5c 22 88 aa 8c 08 40 | 09 40 57 ab 85 c2 c3 c4 |.\"....@|.@W.....|
|000007c0| 5c 22 88 08 41 10 09 41 | 11 aa 58 08 87 22 20 5b |\"..A..A|..X.." [|
|000007d0| 76 31 20 76 32 20 74 68 | 72 6f 77 20 74 61 67 20 |v1 v2 th|row tag |
|000007e0| 6e 69 6c 5d 20 33 29 5d | 20 32 5d 29 0a 28 64 65 |nil] 3)]| 2]).(de|
|000007f0| 66 61 6c 69 61 73 20 27 | 76 65 72 73 69 6f 6e 3e |falias '|version>|
|00000800| 3d 20 23 5b 28 76 31 20 | 76 32 29 20 22 08 3c ac |= #[(v1 |v2) ".<.|
|00000810| 84 c1 08 21 10 5c 6e 3c | ac 84 c1 5c 6e 21 12 c3 |...!.\n<|...\n!..|
|00000820| c4 8d 87 22 20 5b 76 31 | 20 76 65 72 73 69 6f 6e |..." [v1| version|
|00000830| 2d 74 6f 2d 6c 69 73 74 | 20 76 32 20 74 61 67 20 |-to-list| v2 tag |
|00000840| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 ab a5 09 |(byte-co|de "....|
|00000850| ab a2 08 40 09 40 56 ab | 87 c2 c3 08 5c 22 88 aa |...@.@V.|....\"..|
|00000860| 8c 08 40 09 40 57 ab 85 | c2 c3 c4 5c 22 88 08 41 |..@.@W..|...\"..A|
|00000870| 10 09 41 11 aa 58 08 ae | 86 08 3f ad 82 09 3f 87 |..A..X..|..?...?.|
|00000880| 22 20 5b 76 31 20 76 32 | 20 74 68 72 6f 77 20 74 |" [v1 v2| throw t|
|00000890| 61 67 20 6e 69 6c 5d 20 | 33 29 5d 20 32 5d 29 0a |ag nil] |3)] 2]).|
|000008a0| 23 40 35 30 20 52 65 74 | 75 72 6e 20 61 20 76 65 |#@50 Ret|urn a ve|
|000008b0| 72 73 69 6f 6e 2d 73 74 | 72 69 6e 67 20 66 72 6f |rsion-st|ring fro|
|000008c0| 6d 20 52 43 53 20 49 44 | 2e 20 5b 74 6c 2d 73 74 |m RCS ID|. [tl-st|
|000008d0| 72 2e 65 6c 5d 1f 0a 28 | 64 65 66 61 6c 69 61 73 |r.el]..(|defalias|
|000008e0| 20 27 67 65 74 2d 76 65 | 72 73 69 6f 6e 2d 73 74 | 'get-ve|rsion-st|
|000008f0| 72 69 6e 67 20 23 5b 28 | 69 64 29 20 22 c0 c1 5c |ring #[(|id) "..\|
|00000900| 6e 5c 22 ad 86 5c 6e c3 | 94 c3 95 4f 87 22 20 5b |n\"..\n.|...O." [|
|00000910| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 2c 76 |string-m|atch ",v|
|00000920| 20 5c 5c 28 5b 30 2d 39 | 5d 5b 30 2d 39 2e 5d 5b | \\([0-9|][0-9.][|
|00000930| 30 2d 39 2e 5d 2b 5c 5c | 29 22 20 69 64 20 31 5d |0-9.]+\\|)" id 1]|
|00000940| 20 33 20 28 23 24 20 2e | 20 32 32 31 33 29 5d 29 | 3 (#$ .| 2213)])|
|00000950| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 66 69 6c 65 |.(defali|as 'file|
|00000960| 2d 6e 61 6d 65 2d 6e 6f | 6e 2d 65 78 74 65 6e 73 |-name-no|n-extens|
|00000970| 69 6f 6e 20 23 5b 28 66 | 69 6c 65 6e 61 6d 65 29 |ion #[(f|ilename)|
|00000980| 20 22 c0 c1 5c 6e 5c 22 | ab 86 5c 6e c3 89 94 4f | "..\n\"|..\n...O|
|00000990| 87 5c 6e 87 22 20 5b 73 | 74 72 69 6e 67 2d 6d 61 |.\n." [s|tring-ma|
|000009a0| 74 63 68 20 22 5c 5c 2e | 5b 5e 2e 5d 2b 24 22 20 |tch "\\.|[^.]+$" |
|000009b0| 66 69 6c 65 6e 61 6d 65 | 20 30 5d 20 33 5d 29 0a |filename| 0] 3]).|
|000009c0| 23 40 33 37 20 52 65 74 | 75 72 6e 20 73 61 66 65 |#@37 Ret|urn safe|
|000009d0| 74 79 20 66 69 6c 65 6e | 61 6d 65 20 66 72 6f 6d |ty filen|ame from|
|000009e0| 20 53 54 52 49 4e 47 2e | 1f 0a 28 61 75 74 6f 6c | STRING.|..(autol|
|000009f0| 6f 61 64 20 27 72 65 70 | 6c 61 63 65 2d 61 73 2d |oad 'rep|lace-as-|
|00000a00| 66 69 6c 65 6e 61 6d 65 | 20 22 66 69 6c 65 6e 61 |filename| "filena|
|00000a10| 6d 65 22 20 27 28 23 24 | 20 2e 20 32 35 30 31 29 |me" '(#$| . 2501)|
|00000a20| 29 0a 23 40 31 30 33 20 | 52 65 74 75 72 6e 20 61 |).#@103 |Return a|
|00000a30| 20 73 79 6d 62 6f 6c 20 | 77 68 6f 73 65 20 6e 61 | symbol |whose na|
|00000a40| 6d 65 20 69 73 20 63 6f | 6e 63 61 74 65 6e 61 74 |me is co|ncatenat|
|00000a50| 69 6f 6e 20 6f 66 20 61 | 72 67 75 6d 65 6e 74 73 |ion of a|rguments|
|00000a60| 20 41 52 47 53 0a 77 68 | 69 63 68 20 61 72 65 20 | ARGS.wh|ich are |
|00000a70| 73 74 72 69 6e 67 20 6f | 72 20 73 79 6d 62 6f 6c |string o|r symbol|
|00000a80| 2e 20 5b 74 6c 2d 73 74 | 72 2e 65 6c 5d 1f 0a 28 |. [tl-st|r.el]..(|
|00000a90| 64 65 66 61 6c 69 61 73 | 20 27 73 79 6d 62 6f 6c |defalias| 'symbol|
|00000aa0| 2d 63 6f 6e 63 61 74 20 | 23 5b 28 26 72 65 73 74 |-concat |#[(&rest|
|00000ab0| 20 61 72 67 73 29 20 22 | c0 c1 c2 c3 c4 0d 5c 22 | args) "|......\"|
|00000ac0| 5c 22 21 87 22 20 5b 69 | 6e 74 65 72 6e 20 61 70 |\"!." [i|ntern ap|
|00000ad0| 70 6c 79 20 63 6f 6e 63 | 61 74 20 6d 61 70 63 61 |ply conc|at mapca|
|00000ae0| 72 20 23 5b 28 73 29 20 | 22 08 39 ab 84 c1 08 21 |r #[(s) |".9....!|
|00000af0| 87 08 3b ad 81 08 87 22 | 20 5b 73 20 73 79 6d 62 |..;...."| [s symb|
|00000b00| 6f 6c 2d 6e 61 6d 65 5d | 20 32 5d 20 61 72 67 73 |ol-name]| 2] args|
|00000b10| 5d 20 36 20 28 23 24 20 | 2e 20 32 36 30 30 29 5d |] 6 (#$ |. 2600)]|
|00000b20| 29 0a 23 40 38 38 20 52 | 65 74 75 72 6e 20 61 20 |).#@88 R|eturn a |
|00000b30| 6c 69 73 74 20 28 4d 41 | 54 43 48 45 44 20 52 45 |list (MA|TCHED RE|
|00000b40| 53 54 29 20 69 66 20 73 | 74 72 69 6e 67 20 50 41 |ST) if s|tring PA|
|00000b50| 54 20 69 73 20 74 6f 70 | 20 73 75 62 73 74 72 69 |T is top| substri|
|00000b60| 6e 67 20 6f 66 0a 73 74 | 72 69 6e 67 20 53 54 52 |ng of.st|ring STR|
|00000b70| 2e 20 5b 74 6c 2d 73 74 | 72 2e 65 6c 5d 1f 0a 28 |. [tl-st|r.el]..(|
|00000b80| 64 65 66 61 6c 69 61 73 | 20 27 74 6f 70 2d 73 74 |defalias| 'top-st|
|00000b90| 72 69 6e 67 2d 6d 61 74 | 63 68 20 23 5b 28 70 61 |ring-mat|ch #[(pa|
|00000ba0| 74 20 73 74 72 29 20 22 | c0 c1 c2 0b 21 50 0c 5c |t str) "|....!P.\|
|00000bb0| 22 ad 87 0b 0c c5 95 c6 | 4f 44 87 22 20 5b 73 74 |".......|OD." [st|
|00000bc0| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5e 22 20 72 |ring-mat|ch "^" r|
|00000bd0| 65 67 65 78 70 2d 71 75 | 6f 74 65 20 70 61 74 20 |egexp-qu|ote pat |
|00000be0| 73 74 72 20 30 20 6e 69 | 6c 5d 20 34 20 28 23 24 |str 0 ni|l] 4 (#$|
|00000bf0| 20 2e 20 32 38 35 35 29 | 5d 29 0a 23 40 38 39 20 | . 2855)|]).#@89 |
|00000c00| 52 65 74 75 72 6e 20 61 | 20 6c 69 73 74 20 28 50 |Return a| list (P|
|00000c10| 52 45 56 49 4f 55 53 20 | 4d 41 54 43 48 45 44 20 |REVIOUS |MATCHED |
|00000c20| 52 45 53 54 29 20 69 66 | 20 73 74 72 69 6e 67 20 |REST) if| string |
|00000c30| 50 41 54 20 69 73 20 66 | 6f 75 6e 64 20 69 6e 0a |PAT is f|ound in.|
|00000c40| 73 74 72 69 6e 67 20 53 | 54 52 2e 20 5b 74 6c 2d |string S|TR. [tl-|
|00000c50| 73 74 72 2e 65 6c 5d 1f | 0a 28 64 65 66 61 6c 69 |str.el].|.(defali|
|00000c60| 61 73 20 27 6d 69 64 64 | 6c 65 2d 73 74 72 69 6e |as 'midd|le-strin|
|00000c70| 67 2d 6d 61 74 63 68 20 | 23 5b 28 70 61 74 20 73 |g-match |#[(pat s|
|00000c80| 74 72 29 20 22 08 09 6b | ab 85 c2 08 c2 45 87 c3 |tr) "..k|.....E..|
|00000c90| c4 08 21 09 5c 22 ad a2 | c5 94 c5 95 1e 06 89 1e |..!.\"..|........|
|00000ca0| 07 c5 55 3f ad 85 09 c5 | 0e 07 4f 08 09 47 0e 06 |..U?....|..O..G..|
|00000cb0| 56 ad 85 09 0e 06 c2 4f | 45 2a 87 22 20 5b 70 61 |V......O|E*." [pa|
|00000cc0| 74 20 73 74 72 20 6e 69 | 6c 20 73 74 72 69 6e 67 |t str ni|l string|
|00000cd0| 2d 6d 61 74 63 68 20 72 | 65 67 65 78 70 2d 71 75 |-match r|egexp-qu|
|00000ce0| 6f 74 65 20 30 20 65 20 | 62 5d 20 36 20 28 23 24 |ote 0 e |b] 6 (#$|
|00000cf0| 20 2e 20 33 30 37 32 29 | 5d 29 0a 23 40 39 39 20 | . 3072)|]).#@99 |
|00000d00| 52 65 74 75 72 6e 20 61 | 20 6c 69 73 74 20 28 4d |Return a| list (M|
|00000d10| 41 54 43 48 45 44 20 52 | 45 53 54 29 20 69 66 20 |ATCHED R|EST) if |
|00000d20| 72 65 67 65 78 70 20 50 | 41 54 20 69 73 20 6d 61 |regexp P|AT is ma|
|00000d30| 74 63 68 65 64 20 61 73 | 20 74 6f 70 0a 73 75 62 |tched as| top.sub|
|00000d40| 73 74 72 69 6e 67 20 6f | 66 20 73 74 72 69 6e 67 |string o|f string|
|00000d50| 20 53 54 52 2e 20 5b 74 | 6c 2d 73 74 72 2e 65 6c | STR. [t|l-str.el|
|00000d60| 5d 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 72 65 |]..(defa|lias 're|
|00000d70| 2d 74 6f 70 2d 73 74 72 | 69 6e 67 2d 6d 61 74 63 |-top-str|ing-matc|
|00000d80| 68 20 23 5b 28 70 61 74 | 20 73 74 72 29 20 22 c0 |h #[(pat| str) ".|
|00000d90| c1 5c 6e 50 0b 5c 22 ad | 8d c4 95 1d 0b c4 0d 4f |.\nP.\".|.......O|
|00000da0| 0b 0d c6 4f 29 44 87 22 | 20 5b 73 74 72 69 6e 67 |...O)D."| [string|
|00000db0| 2d 6d 61 74 63 68 20 22 | 5e 22 20 70 61 74 20 73 |-match "|^" pat s|
|00000dc0| 74 72 20 30 20 65 20 6e | 69 6c 5d 20 34 20 28 23 |tr 0 e n|il] 4 (#|
|00000dd0| 24 20 2e 20 33 33 32 38 | 29 5d 29 0a 28 64 65 66 |$ . 3328|)]).(def|
|00000de0| 61 6c 69 61 73 20 27 73 | 74 72 69 6e 67 2d 63 6f |alias 's|tring-co|
|00000df0| 6d 70 61 72 65 2d 66 72 | 6f 6d 2d 74 6f 70 20 23 |mpare-fr|om-top #|
|00000e00| 5b 28 73 74 72 31 20 73 | 74 72 32 29 20 22 08 47 |[(str1 s|tr2) ".G|
|00000e10| 19 5c 6e 47 1b 09 0b 5e | 1c c5 1e 06 c7 1e 08 c7 |.\nG...^|........|
|00000e20| 1e 09 0e 06 0c 57 ab a1 | ca 08 0e 06 5c 22 16 08 |.....W..|....\"..|
|00000e30| ca 5c 6e 0e 06 5c 22 16 | 09 0e 08 0e 09 61 ab 8c |.\n..\".|.....a..|
|00000e40| 0e 06 cb 0e 08 21 5c 5c | 89 16 06 aa 5b 0e 06 c5 |.....!\\|....[...|
|00000e50| 56 ad b7 08 c5 0e 06 4f | 0e 06 09 57 ad 85 08 0e |V......O|...W....|
|00000e60| 06 c7 4f 0e 06 0b 57 ad | 85 5c 6e 0e 06 c7 4f 1e |..O...W.|.\n...O.|
|00000e70| 0c 1e 0d 1e 0e 0e 0d 0e | 0c 61 ab 84 0e 0e aa 8a |........|.a......|
|00000e80| cf 0e 0e d0 0e 0d 0e 0c | 45 45 2b 2e 06 87 22 20 |........|EE+..." |
|00000e90| 5b 73 74 72 31 20 6c 65 | 6e 31 20 73 74 72 32 20 |[str1 le|n1 str2 |
|00000ea0| 6c 65 6e 32 20 6c 65 6e | 20 30 20 70 20 6e 69 6c |len2 len| 0 p nil|
|00000eb0| 20 63 31 20 63 32 20 73 | 72 65 66 20 63 68 61 72 | c1 c2 s|ref char|
|00000ec0| 2d 6c 65 6e 67 74 68 20 | 72 32 20 72 31 20 6d 61 |-length |r2 r1 ma|
|00000ed0| 74 63 68 65 64 20 73 65 | 71 20 6f 72 5d 20 36 5d |tched se|q or] 6]|
|00000ee0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 65 67 |).(defal|ias 'reg|
|00000ef0| 65 78 70 2d 2a 20 23 5b | 28 72 65 67 65 78 70 29 |exp-* #[|(regexp)|
|00000f00| 20 22 08 c1 50 87 22 20 | 5b 72 65 67 65 78 70 20 | "..P." |[regexp |
|00000f10| 22 2a 22 5d 20 32 5d 29 | 0a 28 64 65 66 61 6c 69 |"*"] 2])|.(defali|
|00000f20| 61 73 20 27 72 65 67 65 | 78 70 2d 6f 72 20 23 5b |as 'rege|xp-or #[|
|00000f30| 28 26 72 65 73 74 20 61 | 72 67 73 29 20 22 c0 c1 |(&rest a|rgs) "..|
|00000f40| c2 0b c4 23 c5 51 87 22 | 20 5b 22 5c 5c 28 22 20 |...#.Q."| ["\\(" |
|00000f50| 6d 61 70 63 6f 6e 63 61 | 74 20 69 64 65 6e 74 69 |mapconca|t identi|
|00000f60| 74 79 20 61 72 67 73 20 | 22 5c 5c 7c 22 20 22 5c |ty args |"\\|" "\|
|00000f70| 5c 29 22 5d 20 35 5d 29 | 0a 28 70 72 6f 76 69 64 |\)"] 5])|.(provid|
|00000f80| 65 20 27 74 6c 2d 73 74 | 72 29 0a |e 'tl-st|r). |
+--------+-------------------------+-------------------------+--------+--------+
